* Encoding: windows-1252.
Computations for Comprehensive Health Survey
Average Stress
compute ns=0
compute nt=0
do repeat j=d172 to d181/k=s172 to s181
do if j gt 1
compute ns=ns+1
compute nt=nt+j
end if
recode j (1=0) (2 thru 5=1) into k
end repeat
freq var=ns
do if ns gt 0
compute avstress=nt/ns
end if

subtitle Health Coping Scales
compute distract=mean(d41,d45,d49,d53,d57,d61,d65,d69)
compute palliatv=mean(d42,d46,d50,d54,d58,d62,d66,d70)
compute instrumt=mean(d43,d47,d51,d55,d59,d63,d67,d71)
compute emo_preo=mean(d44,d48,d52,d56,d60,d64,d68,d72)
export outfile=hltcoping.por/keep=id distract to emo_preo
fin

Stressful Events items are d172 to d181

Irrational Beliefs items are d198 to d216

Cognitive Failure items are d95 to d119

Obsessive-Compulsive items are d218 to d236

subtitle Obsessive-Compulsive Items, Two Scales
compute obscom1=mean.7(d233,d222,d231,d227,d224,d225,d230)
compute obscom2=mean.9(d221,d232,d226,d223,d234,d218,d228,d220,d235)
